home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / vuguage / form1.frm < prev    next >
Text File  |  1996-01-07  |  2KB  |  78 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1710
  6.    ClientTop       =   1530
  7.    ClientWidth     =   6690
  8.    Height          =   4545
  9.    Left            =   1650
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   6690
  13.    Top             =   1185
  14.    Width           =   6810
  15.    Begin VB.HScrollBar HScroll1 
  16.       Height          =   255
  17.       Left            =   480
  18.       Max             =   100
  19.       TabIndex        =   1
  20.       Top             =   2040
  21.       Value           =   50
  22.       Width           =   1695
  23.    End
  24.    Begin VuguageLib.Vuguage Vuguage1 
  25.       Height          =   1575
  26.       Left            =   480
  27.       TabIndex        =   0
  28.       Top             =   360
  29.       Width           =   1575
  30.       _version        =   65536
  31.       _extentx        =   2778
  32.       _extenty        =   2778
  33.       _stockprops     =   1
  34.       bordercolor     =   0
  35.       min             =   0
  36.       max             =   100
  37.       pos             =   50
  38.       outerbevel      =   1
  39.       innerbevel      =   0
  40.       outerbevelwidth =   4
  41.       innerbevelwidth =   3
  42.       borderwidth     =   3
  43.       shadowcolor     =   8421504
  44.       hilitecolor     =   16777215
  45.       highalarmcolor  =   255
  46.       lowalarmcolor   =   65280
  47.       highalarm       =   75
  48.       lowalarm        =   15
  49.       orientation     =   3
  50.       facecolor       =   12632256
  51.       tickmarks       =   5
  52.       tickcolor       =   0
  53.    End
  54. End
  55. Attribute VB_Name = "Form1"
  56. Attribute VB_Creatable = False
  57. Attribute VB_Exposed = False
  58. Private Sub HScroll1_Change()
  59. Vuguage1.Pos = HScroll1.Value
  60. End Sub
  61.  
  62.  
  63. Private Sub HScroll1_Scroll()
  64. Vuguage1.Pos = HScroll1.Value
  65. End Sub
  66.  
  67.  
  68. Private Sub Vuguage1_Alarm(Alarm As Integer)
  69. If Alarm = 1 Then
  70. MsgBox "Low Alarm"
  71. End If
  72. If Alarm = 2 Then
  73. MsgBox "High Alarm"
  74. End If
  75. End Sub
  76.  
  77.  
  78.